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DECLARATION OF MANNY MANIMTIM GABRIEL 
I, Manny Manimtim Gabriel, having first been warned that willful false statements and 
the like are punishable by fine or imprisonment, or both, and that a false declaration may 
jeopardize the validity of this application or any patent issuing thereon, make the following 
Declaration of my own knowledge: 

1. I am a resident of Guam, and am a named inventor on U.S. Patent Application No. 
10/686,820. Prior to December, 2000, I had given some thought to the concept of short 
messaging service ("SMS") as then implemented for use in cellular telephones. My interest was 
based upon the fact that, being located in Guam, I frequently found it difficult to communicate 
with family and friends elsewhere in the world, and the SMS feature of cellular telephones 
appeared to be a facility that held promise for being able to provide a nearly instantaneous, 
inexpensive communications medium between persons in geographically remote locations. I 
conceived the invention together with my brother, co-inventor Leandro Manimtim Gabriel, in 
January, 2001. Leandro, who also lives in Guam, and I had been visiting our parents in the 
Philippines in December, 2000 and January, 2001. While there, we saw the widespread use of 
short messaging service ("SMS") in the Philippines. 



2. Upon returning from vacation in the Philippines in January 2001 we wanted to find a way 
to continue to communicate with our friends and family in the Philippines using some form of 
instant messaging. We wished to be able to communicate from Guam with our parents in the 
Philippines using the now very popular in the Philippines SMS. In January, 2001, however, 
there were no compatible SMS Network Providers in Guam. At that time, in January, 2001, we 
conceived the idea of integrating internet communications with mobile communications to route 
SMS messages between different cellular systems, and between geographically remote areas 
such as Guam and the Philippines. 

3 . We both had full time jobs, but were able to spend around 3 to 4 hours every day after 
work and on weekends doing research and developing the system. After some research, 
programming, configuration and testing with different hardware, in late April of 2001, the first 
messages were sent via a server in our home in Guam connected via IP to a server in the 
Philippines that was physically connected to a mobile phone via a data cable. Our father was the 
recipient of our first message. When he replied with a message of his own, it went back through 
the mobile phone connected to the server in the Philippines, and was then forwarded back to 
our server in our home in Guam where we received it. 

4. After some tweaking, our first working prototype of SMS via the Web was used 
consistently to communicate with our parents in the Philippines around June, 2001. On June 21, 
2001, we purchased IPWorks, a Visual Basic Control, to use with our software to improve 
stability and performance for an improved version of SMS that we began using in July 2001. 



{M2467482;!} 



2 



5. In late July we began to concentrate on the Client Software and the Web Interface to 
allow for the system to accommodate multiple users. By August 2001 we had some beta testers 
in Guam using our system to communicate with their friends and families in the Philippines. 

6. In September, 2001, Guam's first compatible GSM network provider (Hafatel) came 
open for business, and by early 2002 we were able to use that network for our continuing 
development of the system incorporating cell phones. We began working on the option of 
utilizing their mobile phones with our system to create an SMS that operated phone-to-phone via 
the Web. Messages utilizing this option would travel from the user's mobile phone to a mobile 
phone connected via data cable to a server in Guam, would then be converted to IP and travel 
over the internet to a server in the Philippines, and would then be reconverted and sent via data 
cable to a mobile phone in the Philippines. This improvement gave us the capability to utilize our 
system without having to physically be at a computer with internet access. 

7. As we improved the invention to include phone-to-phone SMS using the internet, we also 
found it necessary to develop software routing and addressing algorithms suitable to permit 
phone users to conveniently address e-mails to other phone without having to enter large 
amounts of alphanumeric data. Throughout 2002, we evolved various software programs and 
modules to provide the necessary address and communications interfaces to permit SMS 
messages to flow between cellular systems, and individual phones, via the internet. 
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8. On October 17, 2002, we filed our provisional patent application under App. No. 
60/419804. Thereafter, we continued to work on general enhancements and improvements for a 
multiple-user SMS system. 

9. I have attached a number of exhibits to this Declaration to show the dates upon which 
certain files that we used in the development of the invention had been last modified. Our 
software code was written and modified daily, and most of our files continued to be modified 
after we started using them. There are a few files, however, that were not modified later on, and 
that provide a definite "last date" of modification. These are noted below. 

10. Attached hereto as Exhibit A is a file entitled "GTModule.bas" - a file that we created in 
Visual Basic and last updated on August 29, 2001. This file represents an array definition file. It 
defines the structure of an array that would hold information necessary to identify currently 
connected SMS devices. This array definition is used to provide addresses and other connection 
information needed for sending SMS messages to connected SMS devices using our invention. 

11. Attached hereto as Exhibit B is a file entitled "Modulel.bas" - a file containing some 
publicly available code that I last modified to use with our product on August 29, 2001. 

12. Attached hereto as Exhibits C-l through C-7 are screen images taken from an old 
computer that we were then using to develop the invention. Although our development activities 
were thereafter moved to another development platform, the computer shown in Exhibits C-l 
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through C-7 was being used during the summer months of 2001, and the files shown in the image 
were then existing upon that computer. 

13. Exhibit C-l is a screen image of computer files in a directory entitled "SMS." With the 
exception of a file (RagnoSMSlBeta.vbw) last modified on April 9, 2000, the files in the SMS 
directory show a last modified date of March 1, 2001. Most of these files were created and 
developed in conjunction with our development of our invention following our conception of the 
invention. Two subdirectories are also found in SMS, one of which is "SMS Services." 
Although SMS Services was created on August 26, 2002, it contains files that were created at an 
earlier date, and that were copied or moved to SMS Services at some later time. 

14. Exhibit C-2 shows the files in a directory entitled "SMS Service." These files were all 
created and developed in connection with developing the invention, and were last modified on 
May 15,2001. 

15. Exhibit C-3 shows the files in a directory entitled "SMSDevice." One of these files, 
"Modulel.bas" (Exhibit B to this Declaration) was used in the development of the invention, and 
was last modified on August 16, 2001. Another file, "default. script" was last modified on 
September 3, 2001. All files in the SMSDevice directory were used in the development of the 
invention. 

16. Exhibit C-4 shows the files in a directory called "SMSServer." Two files in this 
directory, "GTModule.bas" and "Modulel.bas" were last modified on August 29, 2001. This is 



{M2467482;!} 



5 



the same file as is also found in the SMSDevice directory, but was accessed, and possibly 
modified, more recently than the file found in the SMSDevice directory. There is also a file, 
"ObjectlDbarcode.gdb" that was last modified on September 2, 2001. All files in this directory 
were used in the development of the invention. 

17. Exhibit C-5 shows the contents of a directory entitled "SMSProc." All files in this 
directory were used in the development of the invention, and all have a last modification date of 
on or before August 4, 2001 . 

18. Exhibit C-6 shows the contents of a directory called "SMS Edit." With one exception, 
these files were last modified on January 22, 2001, and were created in connection with our 
development of our invention. 

19. Exhibit C-7 is an image of an internet site from which we purchased and downloaded 
development software. The last item on the list shows that we downloaded an application 
entitled IPWorks VB Edition V5.0 on June 29, 2001. This application was used in some of our 
development work on our invention. 

20. These exhibits, and the dates of last modification of the files shown on them, confirm and 
support my recollection that the invention claimed in our patent application was conceived at 
least as early as January 1, 2001, and was being developed throughout the time from that date 
until October 16, 2002, when we filed our provisional patent application. After that date, we 
continued to work on general enhancements and improvements to the system, and those 
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enhancements have been directed toward making the system more user-friendly while 
automating the subscription process and means for adding new addresses to a user's list of 
persons who could be contacted using the system. 

Dated: November 2006 
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EXHIBIT A 



Attribute VB_Name = "GTModule" 
Type GTUsers 

UserlD As String 

IsAuthenticated As Boolean 
End Type 

Type GTDevices 

DevicelD As String 
DeviceType As String 
DeviceVersion As String 
DeviceArea As String 
DeviceLocation As String 
IsAuthenticated As Boolean 

End Type 

Global User(0 To 9) As GTUsers 
Global Device (0 To 49) As GTDevices 
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Attribute VBName = "INIModule" 

'Not IhouroughK commented, comments desribe what eacli function does. 
'Please see Forml code to see how to call each l imction 

Option Explicit 

'APIs to access INI files and retrieve data 

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal FpApplicationName As String, ByVal 
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String. ByVal nSize As Long. ByVal lpFileName As String) As 
Long 

Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal AppNameS, ByVal KeyNameS, ByVal 
keydefault$, ByVal FileNameS) 

Function GetKeyVal(ByVal FileName As String, ByVal Section As String, ByVal Key As String) 

'Returns info from an INI file 

Dim RetVal As String, Worked As Integer 

II' Dir(FileN'ame) fhen MsgBox FileName & " not found.". \bCritical. "file Not found": Exit function 
RetVal = StringS(255, 0) 

Worked = GetPrivateProfileString(Section, Key, "", RetVal, Len(RetVal), FileName) 
If Worked = 0 Then 

GetKeyVal = "" 
Else 

GetkevVal Lel't(Ret\ al. InStr(Ret Val. Chr(0)) - 1) 
End If 

End Function 

Function AddToINI(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal KeyValue As String) As Integer 
'Add info to an INI file 

'Function returns 1 if successful and 0 il unsuccessful 
WntePrivaleProfileSlring Section. Ke\. I\e\ Value. FileName 
AddToINI =1 
End Function 

Function DeleteSection(ByVal FileName As String, ByVal Section As String) As Integer 
'Delete an entire section and all it's keys from a gi\en IN I lile 
'Function returns 1 if successful and 0 if unsuccessful 

III >in FileName ) fhen Msgl Sox FileName & " not found.". vbCritical. "file Not found": f xit Function 

If Not SectionExists(FileName. Section) Then MsgBox "Section, " & Section & ", Not Found. ~<DeleteSection)" & vbCrLf & "Verify spelling 
and capitili/alion is correct. Case-sensative.". vblnformation, "Section Not Found.": Exit Function 
WritePrivateProfileString Section, vbNullString, vbNullString, FileName 
DeleteSection = 1 
End Function 

Function DeleteKey(ByVal FileName As String. BvYal Section As String, ByVal Key As String) As Integer 
'Delete a key from an INI file 

'function returns 1 if successful and 0 if unsuccessful 

If Dir(FileName) "" fhen MsgBox FileName & " not found.". vbCritical. "File Not Found": f.xit Function 
If Not SectionExists(FileName, Section) Then MsgBox "Section, " & Section & ", Not Found. -(DeleteKey)" & vbCrLf & 
capitili/alion is correct. Case-sensative.". \b In formation. "Section Not found.": f.xit Function 

If Not KeyFxists( FileName. Section. Key) Then MsgBox "Key. " & Key & ". Not Found. (DeleteKey)" & vbCrLf & 
capilili/ation is correct. Case-sensative.". vblnformalion. "Ke\ Not found.": F.xit function 
WrilePrivalefrolileSlnng Section. Ke\. \ bNullSlring. FileName 
DeleteKey = 1 
End Function 

Function DeleteKey\"alue(By\"al FileName As Siring. ByVal Section As String. ByVal Key As String) As Integer 
'Delete a key's value from an INI file 
'Function returns I if successful and 0 if unsuccessful 

II Din FileName) fhen MsgBox FileName & " not found.". vbCritical. "file Not found": f xit function 
If Not SectionExislsi FileName. Section > fhen MsgBox "Section, " & Section & ", Not Found. -(DeleteKey Value)" & vbCrLf & "Verify spelling 
and capitili/alion is correct. Case-sensative.". vblnformalion. "Section Not found.": f.xit function 

If Not KeyExists(FileName. Section. Key) Then MsgBox "Key. " & Key & ". Not Found. -(DeleteKeyValue)" & vbCrLf & "Verify spelling and 
capitili/alion is correct. Case-sensative.". vblnformalion. "Key Not Found.": Exit Function 
WrilePrivaleProfileSlring Section. Key. "". FileName 
DeleteKeyValue = 1 
End Function 

Public function TolalSeclions(ByVal FileName As Siring) As I ong 
'Returns the total number of sections in a given INI file 
Dim Counter As Integer 
Dim InputData As String 



"Verify spelling and 
"Verify spelling and 
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If Dir(FileXame) fhen MsgBox FileName & " not found", vbCritical, "File Not Found": Exit Function 
Open FileName For Input As #1 

Do While Not EOF(l) 
Line Input #1, InputData 

If IsSection( InputData) Then Counter = Counter + 1 
Close #1 

folalSei lions Counter 
End Function 

Public Function Totalkeys(By\al FileName As String) As Long 
'Returns the total number ol'ke\s in a gi\en INT file 
Dim Counter As Integer 
Dim InputData As String 
1 )im I xioper As Integer 

If Dir(F'ileName) fhen MsgBox FileName & " not found.". \bCntieal. "file Not found": Exit Function 
Open FileName For Input As 2 

Do While Not EOF(2) 
Line Input #2, InputData 

If Iskey(InpulDala; fhen Counter = Counter + 1 
Close #2 

TotalKeys = Counter 
End Function 

Public Function Numl\e\s( I >\ \ al FileName As Siring. I>\\ al Section As String) As Integer 

'Returns the total number of ke\s in I gi\en section. 

Dim Counter As Integer 

i )im InputData As String 

Dim hooper As Integer 

Dim InZone As Boolean 

II" Dir( FileName) = "" Then MsgBox FileName & " not found ". vbCritical. "File Not Found": Exit Function 

If Not SectionExists(FileName, Section) Then MsgBox "Section, " & Section & ", Not Found. -(NumKeys)" & vbCrLf& "Verify spelling and 
capitili/.alion is correct. Case-sensali\ e.". \bInfonnalion. "Section Not found.": Exit function 
InZone = False 

Open FileName For Input As 3 

Do While Not EOF(3) 
Line Input #3. InputData 
If InZone Then 

If IsSection(InputData) Or EOF(3) Then 
IfEOF(3)Then 

NumKeys = Counter + 1 
Exit Do 
Else 

NumKeys = Counter 
Exit Do 
End If 
Else 

If Iskev(InputData) Ilien Counter Counter 1 
End If 
Else 

If InputData = "[" & Section & "]" Then 

InZone = True 
End If 
End If 

Close #3 
End Function 

Public Function RenameSeelioni 1>\ \ al FileName As String. ByVal SectionXame As String. ByVal New SeelionName As String) As Integer 

'Renames a section in a given INI file. 

'Function returns 1 if successful and 0 if unsuccessful 

Dim Top keys As Siring 

Dim Botkeys As Siring 

Dim Looper As Integer 

Dim InputData As String 

Dim InZone As Boolean 
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Dim Keyl As String, Key2 As String 

If Dir( FileName) [lien MsgBox FileXame & " not found.". vbCritical. "File Not Found": Exit Function 

If Not SectionExists(FileName, SectionName) Then MsgBox "Section, " & SectionName & ", Not Found. -(RenameSection)" & vbCrLf & 

"Verily spelling and capilili/alion is correct. Case-sensati\ e.". \ blnl'ormation. "Section Not Found.": RenameSection 0: Exit Function 

If SectionExists(FileNatne, NewSectionName) Then MsgBox New SectionName & " allready exists. (RenameSection)", vblnformation, 

"Duplicate Section": RenameSection 0: Exit Function 

( )pen FileXame For Input As #4 

Do While Not EOF(4) 
Fine Input 4. Input Data 
If InZone Then 

If BotKeys = "" Then BotKeys InputData Else BotKeys = BotKeys & vbCrLf & InputData 
IfEOF(4)Then 

Close #4 

Kill FileName 

Open FileName For Append As #5 

II TopKeys "" Then Print -5. TopKeys 

Print 115. "|" & NewSectionName & "|" & xbCrl.f & BotKeys 

Close #5 

RenameSection = 1 
Exit Function 
End If 
Else 

If InputData = "[" & SectionName & "]" Tlien 

InZone = True 
Else 

If TopKeys = "" Then TopKeys = InputData Else TopKeys = TopKeys & vbCrLf & InputData 
End If 
End If 

Close #4 
End Function 

Public Function RcnamcKoy( ByVal FileName As String. ByVal Section As String, ByVal KeyName As String, ByVal NewKeyName As String) 
As Integer 

'Renames a key in a given INI file 

'Function returns 1 if successful and 0 if unsuccessful 

Dim KeyVal As String 

If Dir(FileName) = "" Then MsgBox FileName & " not found.", vbCritical, "File Not Found": RenameKey = 0: Exit Function 

If Not SectionExists(FileName, Section) Then MsgBox "Section, " & Section & ", Not Found. -{RenameKey)" & vbCrLf & "Verify spelling and 

capilili/alion is correct. Case-sensalive.". vb Information. "Section Not Found.": RenameKey = 0: Exit Function 

If Not KeyExists(FileName, Section, KeyName) Then MsgBox "Key, " & KeyName & ", Not Found. -(RenameKey)" & vbCrLf & "Verify 
spelling and capilili/alion is correct. Case-sensalive. ". vblnformalion. "Ke\ Not Found.": RenameKey 0: Exit Function 

If KeyFxislsi FileName. Section. New KeyName) Then Msgl!o\ NewKeyName & " allreadx exists in the section. " & Section & ". 

(RenameKey)". vblnformalion. "Duplicate Key.": RenameKey = 0: Exit Function 
KeyVal GelKe\Val( FileName. Section. KeyName) 
DeleteKey FileName. Section. KeyName 
AddToINI FileName. Section. NewKeyName, KeyVal 
RenameKey = 1 
End Function 

Public Function CielKev (B\ Val FileName As String. ByVal Section As String. ByVal KeylndexNum As Integer) As String 

'Ibis function returns the name of a key which is identified by it's IndexNumber. 

'The Section is identified as Text - CielKe\2 identifies Section b\ it's IndexNumber 

'IndexNumbers begin at 0 and incremenl up 

Dim Counter As hiteger 

Dim InputData As String 

Dim In/one As Boolean 

Dim Looper As Integer 

Dim KeyName As String 

If I tin FileName i I ben \Isgl Sox FileName & " not found.". vbCritical. "File Not Found": Exit Function 

Ff Not SectionExists(FileName, Section) Then MsgBox "Section, " & Section & ", Not Found. -(GetKey)" & vbCrLf & "Verify spelling and 
capilili/alion is correct. Case-sensative.". vblnformation. "Section Not Found.": Exit Function 

If NumKeys( FileXame. Section) - 1 KeylndexNum Then MsgBox KeylndexNum & ", not a valid Key Index Number. -(GetKey)", 
vblnformation, "Invalid Index Number.": Exit Function 

Counter = - 1 

Open FileName For Input As 6 
Do While Not EOF(6) 
Line Input #6, InputData 
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IflnZone Then 

If IsKey(InputData) Tlien 
Counter = Counter + 1 
If Counter KeylndexXum Tlien 
For Looper = 1 To Len(InputData) 

If Mid(InputData. Looper. 1) = "=" Then 
GetKe>' = KeyName 
Exit Do 
Else 

KeyName = KeyName & Mid(InputData, Looper, 1) 
End If 
Next Looper 
End If 
End If 
Else 

If InputData = "[" & Section & "]" Tlien InZone = True 
End If 

Close #6 
End Function 

Public Function ( ietke\ 2( B\ Yal FileXaine As String. I >\ \ al Section IndexXum As Integer. 1 >\ Yal Ke\ IndexXum As Integer) As String 

' this function returns the name ol'a ke\ which is identified b\ it's IndexXumber. 

' lite Section is idcntilied by it's IndexNumber 

'IndexNumbers begin at 0 and increment up 

Dim Counter As Integer 

Dim Counter2 As Integer 

1 >im InputData As String 

Dim In/one As Boolean 

Dim Looper As Integer 

Dim KeyName As String 

I! Din FileXaine) I lion Msgl!o\ FileXaine & " not found.". \bCrilical. "File Not Found": Iixit Function 

If TotalSections(FileName) - 1 < SectionlndexNum Then MsgBox SectionlndexNum & ", not a valid Section Index Number. ~(GetKey2)", 
vb In format ion. "Invalid Index Number.": Exit Function 

If NumKeys(FilcName. CielSeclionl FileXaine. SectionlndexNum)) - 1 KeylndexXum Then MsgBox Ke\ IndexXum & ". not a valid Key Index 
Number. ~(GetKey2)", vblnformation. "Invalid Index Number.": Lxit Function 
Counter = - 1 
Counter2 = -1 

Open FileName For Input As #7 
Do While Not EOF(7) 
Line Input #7. InputData 
IflnZone Then 

If IsKey(InputData) Then 
Counter = Counter + 1 
If Counter = KeylndexXum Then 
For Looper = 1 To Len(InputData) 

If Mid(InputData, Looper, 1) = "=" Then 
GetKey2 = KeyName 
Exit Do 
Else 

kevNanie KeyName X Midi InputData. Looper. 1 I 
End If 
Next Looper 
End If 
End If 
Else 

If IsSection(InputData) Tlien Counter2 = Counter2 + 1 
If Counter: SectionlndexNum Then In/one True 
End If 

Close #7 
End Function 

Public Function CielSeetion(liy\"al I'ileName As String. ByVal SectionlndexNum As Integer) As String 
'Returns a section name which is identified by it's indexnumber 
'IndexNumbers begin al 0 and increment up 
Dim InputData As String 
Dim Counter As Integer 

If Dir(FileXamc) "" Then MsgBox FileName & " not found.". vbCritical. "File Not Found": Exit Function 
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If TotalSections(FileXame) - 1 : SectionlndexNum Then MsgBox SectionlndexNum & ", not a valid Section Index Number. -(GetSection)", 
vblnformalion. "Invalid Index Number.": Exit Function 
Counter = - 1 

Open FileName For Input As #8 
Do While Not EOF(8) 

Line Input #8, InputData 

If IsSection(InputData) Then 
Counter = Counter + 1 

InputData = Right(InputData. I ,en( InputData) - 1) 
InpulDala I .elUInputDala. I .en(InputData) - 1) 
If Counter = SectionlndexNum Then GetSection = InputData: Exit Do 
End If 

Close #8 
End Function 

Public Function IsI\e\(B\Yal Te.xll.ine As Siring) As Boolean 

'Tliis function detennines whether or not a line of text is a \alid I\e\ (ex. "This ke\ " I 

'This returns True or False 

Dim Looper As Integer 

For Looper = 1 To Len(TextLine) 

If Mid( Te.xll.ine. Looper. 1,1 1 hen IsKe\ true: Kxit Function 

Next Looper 
IsKey = False 
End Function 

Public Function IsSection(ByVal TextLine As String) As Boolean 

'This function determines whether or not a line of text is a 

'valid section (ex. "[section]") 

'This return's True or False 

Dim FirstChar As String, LastChar As String 

If TextLine = "" Then Exit Function 

FirstChar = MidfTextLine, 1, 1) 

LastChar = Mid(TextLine, Len(TextLine), 1) 

If FirstChar = "[" And LastChar = "]" Then IsSection = True Else IsSection = False 
End Function 

Public Function KeyExists(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As Boolean 
'This function determines if a ke\ exists in a gi\en section 

'The Section is identified as Text - KeyF.xists2 identifies Section by its IndexNumber 
'This returns True or False 
Dim In/one As Boolean 
1 Jim InpulDala As Siring 
Dim Looper As Integer 

If Dir(FileName) "" Then MsgBox FileName & " not found.", vbCritical. "File Not Found": Exit Function 

If Not SectionFxists(FileName. Section) Then MsgBox "Section. " & Section & ". Not Found. ( I\e\ Exists)" & vbCrLf & 'A erify spelling and 
capitilization is correct. Case-sensative.". vb Information. "Section Not Found.": Exit Function 
Open FileName For Input As #9 
Do While Not EOF(9) 
Line Input #9, InputData 
If InZone Then 

If Iskey(Inpull)ala)Then 

If Left(InputData. Len(Key)) = Key Then 
KeyE.xists True 
Exit Do 
End If 

Flsell'IsSeelion(Ini)ulDala) Then 

KevF.xists = False 

Exit Do 
End If 
Else 

If InputData "|" & Section & "]" Then InZone = True 
End If 

Close #9 
End Function 

Public Function KeyExists2(ByYal FileName As String, ByVal SectionlndexNum As Integer, ByVal Key As String) As Boolean 
'This function detennines if a key exists in a given section 
'The Section is identified b\ its IndexNumber 
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'IndexN umbers begin at 0 and increment up 

'Tliis returns True or False 

Dim InZone As Boolean 

Dim InputData As String 

Dim Looper As Integer 

Dim Counter As Integer 

If Din FileName; Iben \lsgl!o.\ FileName & " not found.". \ bC'ritical. "File Not Found": Fxit Function 

If TolalSectionstFileName,! - 1 SectionlndexNum Iben MsgBox SectionlndexNum & ". not a \alid Section Index Number. (Ke\ Fxists2)". 
vb In formation. "In\ alid index Number.": 1 Avit Function 
Counter = - 1 

Open FileName For Input As 10 
Do While Not EOF(IO) 
Line Input #10. InputData 
If InZone Then 

If IsKey(InputData) Then 

If Left(InpufData, Len(Key)) = Key Then 
KevF.xists2 = True 
Exit Do 
End If 

Flself IsSeclionf InputData ) Iben 
KeyExists2 = False 
Exit Do 
End If 
Else 

irisSecliondnputDatai Iben Counter Counter I 
If Counter SectionlndexNum Then In/one True 
End If 

Close #10 
End Function 

Public Function Section Fxistsi Fix Yal FileName As String, ByVal Section As String) 
'This determines if a section exists in a given INI file 
'This returns True or False 

If Dir(FileName) = "" Then MsgBox FileName & " not found.", vbCritical, "File Not Found": Exit Function 
Dim InputData As String 
Open i ileName For Input As 1 1 
Do While NotEOF(ll) 
Line Input #11, InputData 

If "|" & Section & "1" InputData Iben ScclionFxists True: Exit Do 
SectionExists = False 

Close #11 
End Function 

Public Function GetSectionInde.x(ByYal FileName As String. ByVal Section As String) As Integer 
"Ibis function is used to gel tbe IndexNumber lor a given Section 

If Dir(FileName) "" Iben MsgBox FileName & " not found.". vbCritical. "File Not Found": Exit Function 

If Not SectionExists(FileName. Section) Iben MsgBox "Section. " & Section & ". Not Found. -(GetSeetionlndex)" & vbCrLf & "Verify spelling 
and capilili/alion is correct. Case-sensalive.". \ blnl'onnation. "Section Not Found.": Fxit Function 
Dim InputData As String 
Dim Counter As Integer 
Counter = - 1 

Open FileName For Input As 12 
Do While Not EOF(12) 
Fine Input 12. InputData 

If IsSection(InpulDala~i Iben Counter Counter I 

If "|" & Section & "|" = InputData Then GetSectionlndex = Counter 

Close #12 
End Function 

Public Function GetKeyIndex(ByVal FileName As String. ByVal Section As String, ByVal Key As String) As Integer 
"Ibis function returns tbe IndexNumber of a key in a given Section 
'The Section is identified as Text - GetKeyIndex2. Section is 
'identified by it's IndexNumber 
'IndexNumbers star! at 0 and increment up 

If Dir(FileName) = "" Then MsgBox FileName & " not found.", vbCritical, "File Not Found": Exit Function 

If Not SectionExists(FileName, Section) Then MsgBox "Section, " & Section & ", Not Found. -(GetKeylndex)" & vbCrLf & "Verify spelling 
and capililization is correct. Case-sensative.". vbmformation, "Section Not Found.": Exit Function 
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If Not KeyExists(FileName, Section, Key) Then MsgBox "Key, " & Key & ", Not Found. (GetKetlndex)" & vbCrLf & "Verify spelling and 

capitilization is correct. Case-sensati\ e.". \bfnformalion. "Key Not Found.": Exit Function 

Dim InputData As String 

Dim In/one As Boolean 

Dim Counter As Integer 

Counter = -1 

Open 1'ileName 1 or Input As 1 ? 
Do While Not EOF(13) 
Line Input 13. InputData 
If InZone Then 

If IsKey(InputData) Then 
Counter = Counter + 1 
If Left(InputData, Len(Key)) = Key Then 
( ielkes Index = Counter 
Exit Do 
End If 

Klself IsSeetioni InputData i Then 

Exit Do 
End If 
Else 

If "[" & Section & "]" = InputData Then InZone = True 
End If 

Close #13 
End Function 

Public Function GetKeyIndex2(ByVal FileName As String, ByVal SectionlndexNum As Integer, ByVal Key As String) As Integer 
'This function returns the IndexNumber ol'a ke\ in a gi\en Section 
' lire Section is identified by it's IndexNumber 
'Inde.xNumbers start at 0 and increment up 

If DirfMleXamej "" Then MsgBox 1'ileName & " not found. ". \bCntieal. "File Not Found": Exit Function 

II'TotalSections(FileNamc) - 1 SectionlndexNum Then MsgBox SectionlndexNum & ". not a valid Section Index Number. ~(GetKeyIndex2)", 
vbliil'ormation. "Invalid Index Number.": Exit Function 

If Not KeyExists(FileName, GetSection(FileName, SectionlndexNum). Key) Then MsgBox "Key, " & Key & ", Not Found. ~(GetKetIndex2)" & 

vbCrLf & "Verify spelling and capitilization is correct. Case-sensative.", vblnformation, "Key Not Found.": Exit Function 

Dim InputData As String 

Dim Counter As Integer 

Dim Counter2 As Integer 

Dim InZone As Boolean 

Counter = -1 

Counter2 = -1 

Open I ileName For Input As M4 
Do While Not EOF(14) 
Fine Input «14. InputData 
If InZone Then 

If IsKey(InputData) Then 
Counter = Counter + 1 
If Left(InputData, Len(Key)) = Key Then 
GetKeyIndex2 = Counter 
Exit Do 
End If 

FlseII'IsSeclion(InpulData)Then 

Exit Do 
End If 
Else 

If IsSection(InputData) Tlien Counter2 = Counter2 - 1 
If Counter2 SectionlndexNum Then In/one True 
End If 

Close #14 
End Function 
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EXHIBIT C 



Exhibit C-1 



LE3 



£.(« £d:; >*-',■> fa-'oitet Joe:: Ueto 



j Si»lT>pe 



~ 3 ^ G<: \ 



LSDocs 



M-iwl (5/26/2002 11 14 PM 



J§ hullo bas 

Q RagnoSMSIBetaocx 
%f RagnoSMSIBetavbp 
|ai|RagnoSMS1Beta.vbw 



File Folder 
File Foldei 
1 KB Visual Basic Module 
1 KB Visual Basic Module 
44 KB ActiveX Control 
1 KB Visual Basic Project 
1 KB Visual Basic Project Workspace 
1KB Text Document 



3/26/2002 11:14 PM 
I4PM 
8 45 PM 
8 45 PM 
8 46 PM 
8:48 PM 
5:58 PM 
2:54 AM 



":/;•./;■ "in." i 

3/1/2001 
3/1/2001 
3/1/2001 
3/1/2001 
4/9/2000 

J/l Jl 



%|SMSTESTUSINGOCX.vbp 
ifUserControll.ctl 
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Exhibit C-2 


File Edit View 


Favorites Tool;- Kelp 

j $ Search Fotto J . s M' 




- ~ 

m 








Addfe: . jj ! 5m Ser 






Zi *5« i 


Srns Service 


Nan . j Sizej T p« 
1 i| 00008779. exe 1,814 KB Application 
^SMSCONTROLZIP 9 KB WinZipFile 
4jSmssdk.ZIP 47KB WinZipFile 


| 

5. '15/2001 9:17 AM 
5/1 5/2001 9:16 AM 
5/15/2001 9:13 AM 




I Select an tern to vie' 

See also: 

«v Document:; 
Mv Network Places 
My Computer 


d|sMSSERVER9X.ZIP 10KB WinZipFile 
•i its description. S|SMSSERVERNT.ZIP 10 KB WinZipFile 


5/15/2001 9:1 GAM 
5/15/2001 9:1 GAM 
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Exhibit C-3 



i ' Ffe Edit Visv-' favorites Tools kelp 


in 


^Sa.rk - _J ^S««ch -_F:,^: J , _-. |j=|. 


^■J-:. |_ ! SMSDe ice 

™! Name j Sire j lypc- 


-'Co 

]Mod.hed j 



My Network Places 



rm to view its descriptor 



il] commandscript 1 KB 

||CPause.cls 3 KB 

9] default, script 1 KB 

""""Q.Forrnl.frm 13 KB 

in. i^Forml.frx 1KB 

%§GenericDevice.vbp 1 KB 

ifs] GenericDevice.vbw 1 KB 

<$flNIModule.bas 21KB 

^ Module! bas 21KB 

SSMSDevice.exe 48 KB 

%gSMSDevice.vbp 1 KB 

i*jSMSDevice.vbw 1KB 

if| STARTUP.INI 1 KB 

^TokenModule.bas G KB 



SCRIPT File 

Visual Basic Class Module 

SCRIPT File 

Visual Basic Form File 

Visual Basic Form Binary File 

Visual Basic Project 

Visual Basic Project Workspace 

Visual Basic Module 

Visual Basic Module 



Visual Basic Project 
Visual Basic Project Workspace 
Configuration Setting* 
Visual Basic Module 



9/3/2001 6:10 PM 
11/9/2001 4 01 PM 
11/9/2001 4 01 PM 
11/6/2001 3 44 PM 

1 1 hoi j ii pm 

11/9/2001 11.09 AM 

8/16/2001 10:55 AM 

11/9/2001 4 01 PM 

11/9/2001 4 01 PM 

11/9/2001 -1 01 PM 

11/9/2001 11:50 AM 

11/9/2001 11:09 AM 
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Exhibit C-4 



I'm i-M VW' Furies T>.<i:; H4p 



Add— p':;:/.;;'.: 



See also: 

My Documents 



g^CPause.cIs 3 KB 

&Forrn1.frm 23 KB 

f*j rorrn1.fr:-: 1KB 

^GTModule.bas 1KB 

*8£lndexModule.bas 1KB 

^INIModule.bas 21KB 

LogModule.bas 1KB 

«^Module1.bas 21 KB 

g] ObjectlD.gdb 1KB 
H Ob|ectlDbarcode.gdb 1 KB 

^fObjModule.bas 1KB 

ilj route ini 1 KB 
E3 SMSServer.exe 
%f SMSServer.vbp 
^ SMS Server vbw 
is] startup. mi 
4|TokenModule.ba; 



72 KB 



Visual Basic Module 
Visual Basic Class Module 
Visual Basic Form File 

isual E Form E File 
Visual Basic Module 
Visual Basic Module 
Visual Basic Module 
Visual Basic Module 
Visual Basic Module 
GDB File 
GDB File 

Visual Basic Module 
Configuration Settings 



Visual Basic: Project 
Visual Basic Project Workspace 
Configuration Settings 
Visual Basic Module 



11/2/2001 6 12 PM 
11/8/2001 5:11 PM 
11/8/2001 5:11 PM 
8/29/2001 2:54 PM 
11/7/2001 9:48 AM 
11/7/2001 9:48 AM 
11/7/2001 9:48 AM 
8/29/2001 10:09 PM 
11/9/2001 11:16AM 
9/2/2001 3:23 AM 
11/7/2001 9:4BAM 
11/8/2001 11:36 PM 
11/8/2001 5:11 PM 
11/8/2001 5:11 PM 
11/8/2001 11:09 AM 
11/8/2001 11:17AM 
11/7/2001 9:48 AM 



148tB 
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Exhibit C-5 





fi Edit %w 


Favorites Tool;- Kefo 


o 


B 


J ^ ■»««»<■'' -_j i-uMet. ,_..> / -J iiil* 




Addre:: |_| iMIPhx 




/Co 




'1 frmF ,c. M ftm 1 j 1 l i Fi rm It 


Modfed !. 
8/3/2001 11:57 PM 




" rniproc e-e 20 KB Application 


8/4/2001 12:22 AM 


SMSProc 


%f SMSProc. vbp 1KB Visual Basic Project 


S/4/2001 12:22 AM i 




*]:-••••:-; -'r, ,: vl «•••.• 1KB Visual Basic Project Workspace 


S/4/2001 12:22 AM | 


,: ..-|r.-l -m it- - ri In 


its description. 




See also: 






Myi.'«'.«iJ: 






Mv Network Places 
My Computet 
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Exhibit C-6 
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Exhibit C-7 
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